home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / VTP031.ZIP;1 / TEST.ZIP / TGETCXY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-10-28  |  370 b   |  39 lines
  1. program tgetcxy;
  2.  
  3. uses
  4.   dos,
  5.   vcrtnew;
  6.  
  7. procedure testit;
  8.  
  9. var
  10.   r : registers;
  11.   z : INTEGER;
  12. begin
  13.  
  14.   clrscr;
  15.  
  16.   For Z := 1 to 15 Do
  17.   BEGIN
  18.     GotoXY( Z, Z );
  19.  
  20.     R.AH :=$03;
  21.     R.BH :=0;
  22.     R.ES :=$0;
  23.     R.DS :=$0;
  24.  
  25.     Intr( $10, R );
  26.  
  27.     Write( R.DL,',',R.DH,' (',Z,',',Z,')' );
  28.   END;
  29.  
  30.  
  31. end;
  32.  
  33.  
  34.  
  35. begin
  36.  
  37.   testit;
  38.  
  39. end.